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The paper presents a solution of the Hello World! An Instructive Case for the Transformation Tool 
Contest using the VIATRA2 model transformation tool. 

1 Introduction 

Automated model transformations play an important role in modern model-driven system engineering 
in order to query, derive and manipulate large, industrial models. Since such transformations are fre- 
quently integrated into design environments, they need to provide short reaction time to support software 
engineers. 

The objective of the VIATRA2 (Visual Automated model TRAnsformations |^) framework is to 
support the entire life-cycle of model transformations consisting of specification, design, execution, val- 
idation and maintenance. 

Model representation. Viatra2 uses the VPM (Visual and Precise Metamodeling) approach |[8| 
for describing modeling languages and models. The main reason for selecting VPM instead of a MOF- 
based metamodeling approach is that VPM supports arbitrary metalevels in the model space. As a direct 
consequence, models taken from conceptually different domains (and/or technological spaces) can be 
easily integrated into the VPM model space. The flexibility of VPM is demonstrated by a large number 
of already existing model importers accepting the models of different BPM formalisms, UML models of 
various tools, XSD descriptions, and EMF models. 

Graph transformation (GT) (3J based tools have been frequently used for specifying and executing 
complex model transformations. In GT tools, graph patterns capture structural conditions and type 
constraints in a compact visual way. At execution time, these conditions need to be evaluated by graph 
pattern matching, which aims to retrieve one or all matches of a given pattern to execute a transformation 
rule. A graph transformation rule declaratively specifies a model manipulation operation, that replaces 
a match of the LHS (left-hand side) graph pattern with an image of the RHS (right-hand side) pattern. 

Transformation description. Specification of model transformations in VIATRA2 combines the vi- 
sual, declarative rule and pattern based paradigm of graph transformation and the very general, high-level 
formal paradigm of abstract state machines (ASM) [2] into a single framework for capturing transfor- 
mations within and between modeling languages [7]. A transformation is defined by an ASM machine 
that may contain ASM rules (executable command sequences), graph patterns, GT rules, as well as ASM 
functions for temporary storage. An optional main rule can serve as entry point. For model manipulation 
and pattern matching, the transformation may rely on the metamodels available in the VPM model space; 
such references are made easier by namespace imports. 
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Transformation Execution. Transformations are executed within the framework by using the Vl- 
ATRA2 interpreter. For pattern matching both (i) local search based pattern matching (LS) and (ii) 
incremental pattern matching (INC) are available. This feature provides the transformation designer ad- 
ditional opportunities to finetune the transformation either for faster execution (INC) or lower memory 
consumption (LS) |5J. 



2 Transformation tasks 

The Viatra2 framework has been applied to the subtasks of the Hello World! case ^ using the Vl- 
ATRA2 Textual Command Language (VTCL) [1]. Since the case was intended to provide beginners 
with instructive transformations, we decided to show as many features of the VIATRA2 framework as 
possible, while also keeping each example as simple as possible. Therefore, each task was solved by 
multiple variants, which may share pattern definitions, but are otherwise different from each other. The 
differences are explained at the description of each task. 



2.1 Hello World! 

This task included very basic model construction, model-to-model and model-to-text transformations. 
Since VTCL combines two formalisms for specifying graph transformations, we implemented the dif- 



ferent parts of the task with both declarative ASM rules (see Listing 1 1 and graph transformation rules 



(see Listing 2 1. The difference is how much of the model manipulation is described declaratively by 
GT rules (composed of a LHS and RHS pattern, and potentially an additional ASM action), as opposed 
to elementary manipulation operations issued in ASM rules; see the homepag^for advice on choosing 
between the two alternative approaches in practice. Although the task seems almost trivial, the accom- 
panying transformation definition is not especially short. This may be taken as a disadvantage of VTCL, 
but we would like to note, that the we feel that the verbose self-descriptive nature of VTCL aids in 
comprehension. 



2.2 Count Matches with certain Properties 

This task included parts, where the number of matches are counted using transformations. In the ASM 



variant (see Listing 4 1, the counting and matching are clearly separated, since the patterns describe what 
we look for and the forall construct iterates through the matches to count them. 

To demonstrate reusability and modularity in VTCL, each part reuses the same ASM rule for creating 
the result structure. Additionally, the solution references graph patterns defined externally in a separate 
VTCL file (see Listing 3| ), which acts as a library of common graph patterns. Several further solutions 



also reuse these patterns. In each case, the VTCL machine corresponding to the library must be loaded 
first. 



The verbosity, once again, is partly voluntary: many of the statements in the graph patterns of List- 



ing 3 merely assert the type of nodes, and could be safely omitted thanks to type inference. While such 
verbosity aids in understanding the graph pattern, it does not neccessarily place any additional burden 
on the developer, as patterns like these can easily be created by selecting some related elements in the 
model and then exporting their configuration as a graph pattern. 



1 
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The upcoming match counting feature of VIATRA2 is still under development (and currently only 



partially supported), but it will allow for a more elegant solution (see Listing 5 1 of this task. We expect 
that this solution (and other transformations using match counting within a graph pattern) will be fully 
supported in release 3.3 of Viatra2. 



2.3 Reverse Edges 

In this task, the edges of the graph had to be reversed by the transformation. As before, we created both 



an ASM (see Listing 6 1 and a GT rule variant (see Listing 7 1. However, here the ASM variant shows an 
interesting feature of VIATRA2, as the relations are not modified, only their type is changed from src to 



trg, and the other way around. Furthermore, we implemented a third variant (see Listing 8 1 that reverses 



the edges by switching the target of the src relation with the target of the trg relation. 

Note that using the appropriate conditional language elements (if, try), our solutions are tolerant of 
dangling edges. By ignoring this possibility, the transformation could have been made somewhat simpler. 



2.4 Simple Migration 

In this task, the input graph is transformed to a graph conforming to another metamodel. As the case 



description did not specify it, we implemented both a copy (see Listing 9 and Listing 1 1 ) and an in-place 



(retyping) variant ( Listing 10 and Listing 12 1 for both the core and the topology changing transformation. 
The copy variants simply create the graph using the other metamodel, while the in-place variants use the 
above mentioned feature of VIATRA2 and change the type of the elements without modifying the rest of 
the model. 



2.5 Delete Node with Specific Name and its Incident Edges 

This task included delete transformations for one specific node and it's incident edges. We implemented 



an ASM (Listing 13 and Listing 15 1 and a GT variant (Listing 14 and Listing 16 1 for both the core task 
and the optional task. 



2.6 Insert Transitive Edges 

Finally, the last task dealt with inserting transitive edges between nodes. In this case we provide three 
versions, each with two implementations using ASM rules and GT rules. 

• First, closely following the original problem specification, we insert edges between nodes that are 



2-hop reachable through an inner node (see Listing 17 and Listing 18 1, i.e. if there are two nodes 
that are not connected directly, but through an intermediate node, we establish a direct connection 
between them. 

In the next version, we iterate this step as long as applicable so that eventually all transitive reach- 
ability edges are inserted (see Listing 19 and Listing 20] ). Note, that although there is only a slight 
difference in the code of the first two versions, they are independent in implementation. 

Finally, we present a solution where all missing transitive reachability edges are detected and 
inserted in a single step (see Listing 21 and [Listing 22| ). The transformation relies on a graph 
pattern that expresses full transitive reachability in the graph, using the recursive pattern definition 
feature of VIATRA2. One could even argue that actually inserting the missing reachability edges 
is not necessary in many cases if such pattern matching capability is at our disposal. Note that 
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due to the recursive nature of the pattern, the current version of the incremental pattern matcher 
would not work correctly (in case of deleting edges from graphs containing cycles), therefore the 
default local search-based graph pattern matcher is used. For the other tasks and solution variants 
the incremental pattern matcher is used. 



3 Conclusion 

In the current paper we have presented our VIATRA2 based implementation for the Hello World! case 
study ||6J. 

The high points of our solution are (i) the different variants that are self-descriptive and instructive, 
(ii) the reusable patterns, (iii) the support for recursive matching and (iv) match counting. Furthermore, 
the dynamic type modification (metamodel manipulation in general) is a highly usable feature especially 
for migration problems. 

On the other hand, since VIATRA2 does not handle EMF models natively, importing and exporting 
of models is required. Furthermore, as the transformation language is quite verbose, transformations 
may appear more complex than they really are (note however, that conciseness was not our primary goal 
when creating these instructive examples). 

Our overall impression is that this simple case study is an excellent basis of comparison of various 
model transformation tools, filling a long-standing gap. 
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A Solution demo and implementation 



The deployable implementation and source code is available as an Eclipse online update site (http: / / 



[mit .bme .hu /-ujhelyiz/viatra/ttcll/[) and the project including the transformations as an archive 
([http : //mit .bme .hu/~ujhelyiz/viatra/ttcll-helloworld. zip) 

The SHARE image |4| usable for demonstration purposes contains our solution for both the Hello 
World! and Program Understanding cases. 



B Appendix - Hello World! transformations 
B.l Hello World! 

import datatypes; // imported parts of the model-space are usable by local name 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

Oincremental // uses incremental p at t ern - mat cher 
machine helloWor ldASM{ 
rule mainO = seq{ 

println("2.1 Hello World transformation started"); 

10 prin tln (" Creating Simple M odel with ASM Rule"); 



call 



createSimpleModellnstance 



() ; // invokes the ASM Rule 



let Greeting = undef in seq-[ // define local variable 
prin tln (" Creating Extended M odel with ASM Rule"); 



call createExtendedModellnstance ( Greet ing ) : 
prin tlnC" Executin g model -to -text with ASM Rule"): 
call 



outputGreeting ( Greet ing ) 



println("2.1 Hello World transformation finished"); 

20 } 

// ASM Rule variant of simple Hello World model instance creation 
rule CreateSimpleModellnstance ( ) = 
let Greeting = undef , Text = undef , TextRelation = undef in seq-C 
// entity creation with explicit parent (in) 
new ( hellowor Id . Greet ing ( Greet ing ) in nemf . resources ) ; 

new (EString (Text ) in Greeting); 

// setting entity value to some primitive datatype value 
30 setValue (Text ," Hello world"); 

// create relation between elements 

new(helloworld. Greeting. text(TextRel at ion, Greeting, Text)); 

} 

// ASM Rule variant of extended Hello World model instance creation 
rule createExtendedModellnstance ( out Greeting) = 
let Greet ingMes s age = undef. Greet ingMes s ageRelat i on = undef, 
Text = undef , TextRelation = undef , Person = undef , 
Per sonRelat i on = undef. Name = undef, NameRelation = undef in seq{ 
40 new ( hellowor Idext . Greet ing ( Greet ing ) in nemf . resources ) ; 

new(helloworldext . GreetingMessage (GreetingMessage) in Greeting) ; 
new(helloworldext.Greeting.greetingMessage(GreetingM6ss ageRelat ion. 

Greeting ,GreetingMessage)) ; 
new (EString (Text ) in GreetingMessage); 
setValue (Text ," Hello " ) ; 

new(helloworldext. GreetingMessage. text (Text Relation, GreetingMessage ,Text)): 
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new ( hellowor Idext . Per son ( Per s on ) in Greeting); 
50 new(helloworldext.Greeting.person(PersonRel at ion, Greeting, Person)); 

new ( ESt ring ( Name ) in Person); 
setValue (Name , " TTC Participants " ) ; 

new(helloworldext . Person. name(NameRel at ion , Person ,Name)) ; 



// ASM Rule variant of model -to - text transformation 
rule outputGreeting ( in Greeting) = let Output = undef , ResR = undef 
Result = undef in seq{ 
/* parameters of "choose" are set hy the p at t ernmat cher 
60 based on matches to the patterns after "find" */ 

try c hoose Greet ingMes s ag eText ,PersonName with 



70 



find 



TextAndNameForGreeting ( Greet ing , Greet ingMes s ageText ,PersonName) do seq{ 
newCresult . StringResult (Output) in nemf . resources ) ; 
new ( ESt ring ( Re suit ) in Output); 

new (result . StringResult . result (ResR , Output , Result)) ; 

// value can he set haseed on values from other elements 

set Value ( Result ,( value ( Greet ingMessageText ) + " " + value ( Per sonName ) + "!")): 



// finds (or creates) Greeting , Greet ingMes s ag e . Text and Person. Name 
pattern TextAndNameForGreeting ( Greet ing , Text , Name ) = { 



hel 1 owor Idext . Greet ing ( Greet ing ) in nemf . resources ; 
helloworldext . GreetingMessage (GreetingMessage) ; 

helloworldext. Greeting. greetingMessage(GreetingMessageRel at ion. 

Greeting .GreetingMessage) ; 
EString (Text ) ; 

80 helloworldext . GreetingMessage . text (TextRelation , GreetingMessage ,Text) ; 

helloworldext .Person(Person) ; 

helloworldext. Greeting. person ( Per s onRelat ion .Greeting , Person) ; 
EString(Name) ; 

helloworldext . Person. name (NameRelation .Person ,Name) ; 



Listing 1 : Hello World transformation, ASM variant 



import datatypes; // imported parts of the model-space are usable by local name 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

aincremental // uses incremental p at t ernmat cher 
machine helloWorldGT{ 
rule mainO = seq{ 

println("2.1 Hello World transformation started"); 



10 



20 



/* "choose" executes once or fails if it cannot, the "try" keyword will let 
the transformation c ontinue even if the " cho o s e " fails */ 

try choose with apply createSimpleModellnstanctGT ( ) 
do println(" Great ing Simple Model with ASM Rule " ) ; 

let Greeting = undef in seq { 



createExtendedModellnstanctGT (Greeting) 



try choose with apply 

do print In (" Great ing Extended Model with ASM Rule"); 
println (" Executing mo del-to-text wit h ASM Rule"); 
try choose with apply outputGreetingGT ( Greet ing ) do skip; 

} 

println("2.1 Hello World transformation finished"); 



// finds Cor creates) Greeting , GreetingMessage . Text and Person. Name 
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pattern TextAndNameForGreeting ( Greet ing , Text , Name ) = { 

hel 1 oworldext . Greet ing ( Greet ing ) in nemf . resources ; 

hel 1 oworldext . Greet ingMes s age ( Greet ingMe s sage ) in Greeting; 
helloworldext . Greeting . greetingMessage (GreetingMessageRelation , 
30 Greeting , GreetingMessage ) ; 

EStr ing ( Text ) in GreetingMessage; 

helloworldext . GreetingMessage . text (TextRelation , GreetingMessage .Text) ; 



hel 1 oworldext . Per s on ( Per son ) in Greeting; 

helloworldext. Greeting. person ( Per s onRelat ion, Greet ing .Person ) ; 
EStr ing ( Name ) in Person; 

helloworldext. Person. name(NameRel at ion. Person. Name); 

} 



40 // GT Rule variant of simple Hello World model instance creation 
gtrule createSimpleModellnstanctGT ( ) = { 

// the "precondition" is true before the application of the GT Rule 
precondition pattern empty()= { 

// negative application condition (must not match) 
neg pattern existsGreetingC Greeting) = { 
helloworld.Greeting(Greeting) ; 

} 

} 

// the "postcondition" is true after the application of the GT Rule 
50 postcondition pattern createdGreetingC Text ) = { 

hellowor Id . Greet ing ( Greet ing ) in nemf . resources ; 
EString (Text ) in Greeting; 

helloworld.Greeting.text(TextRelation.Greeting.Text); 

} 

action { // additional ASM based manipulations after GT Rule application 
setValue (Text . "Hello world"); 

} 

} 



60 // GT Rule variant of extended Hello World model instance creation 
gtrule createExtendedModellnstanctGT ( out Greeting) = i 
precondition pattern empty()= { 

neg pattern exi st sGreet ing ( Greet ing ) = { 
helloworldext . Greeting (Greeting) ; 

} 

} 



postcondition find TextAndNameForGreeting ( Greet ing . Text. Name) 



action { 

70 setValue (Text . "Hello ") ; 

setValue (Name . " TTC Participants " ) ; 

} 

} 



// GT Rule variant of mo del - to - t ext transformation 
gtrule outputGreetingG T ( in Greeting) = { 



precondition find 



TextAndNameForGreeting ( Greet ing . Greet ingMe s sageText , PersonName) 



postcondition pattern outputString ( Result ) = { 
80 re suit . StringRe suit ( Output ) in nemf . resources ; 

EString (Result ) in Output; 

result . StringRe suit . result (ResR , Output . Result ) ; 

} 

action{ 

setValue (Result . value ( Greet ingMe s sageText ) + " " + value ( Per sonName ) + "!"); 

} 
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} 

Listing 2: Hello World transformation, GT variant 
B.2 Common patterns for the Graph metamodels 



import datatypes ; 

import nemf . packages ; 

import nemf . ecore . datatypes ; 




machine graphP at terns 
{ 




// simple type wrapper for Graph 
pattern Graph(Graph) = { 
graph 1 . Graph ( Graph ) ; 

} 




// simple type wrapper for Node 
pattern SimpleNode ( Node ) = { 
graphl .Node(Node) ; 

} 




// finds the nodes and name relation of a node 

pattern NodesRelations ( Graph , Node , NodesRelat ion , NameRel at ion ) = 
graphl . Node (Node) ; 
graph 1 . Gr aph ( Graph ) ; 

graphl . Graph.nodes(NodesRelation , Graph , Node ) ; 
EString(Name) ; 

graphl . Node . name (NameRelation , Node , Name ) ; 

} 


= { 


// finds name from the name relation of a node 
pattern nameOfNode (NameRelation , Name ) = { 

graphl .Node(Node) ; 

EString(Name) ; 

graphl . Node . name (NameRelation , Node , Name ) ; 

} 




// simple type wrapper for Edge 
pattern Edge (Edge) = { 
graph 1 . Edge ( Edge ) ; 

} 




// simple type wrapper for Edge in Graph 
pattern EdgeOf Graph ( Graph , Edge ) = { 

graphl . Edge (Edge ) ; 

graph 1 . Gr aph ( Graph ) ; 

graphl . Graph. edges(EdgesRelation , Graph , Edge ) ; 

} 




// finds the edges relation for a node 

pattern EdgesRelation( Graph , Edge , EdgesRel at ion ) = { 

graphl . Edge (Edge ) ; 

graphl . Graph ( Graph ) ; 

graphl . Graph. edges(EdgesRelation , Graph , Edge ) ; 

} 




// finds src relation for Edge 

pattern srcAndRelForEdge ( Edge , From , Sour ceRe lat ion ) = { 
graphl . Node (From) ; 
graphl . Edge (Edge) ; 

graph 1 . Edge . src(SourceRelation , Edge , From ) ; 

} 




// finds trg relation for Edge 
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pattern trgAndRelForEdge ( Edge , To , Tar get Relat i on ) = { 
graphl . Node (To ) ; 
graphl .Edge(Edge) ; 

graphl . Edge . trg (TargetRelation , Edge , To ) ; 

} 



// finds looping edges 
patter n loopingEdge ( Edge ) = { 



find 



} 



edgeFromTo Internal ( Edge , Node , Node ) ; 



// From is connected with an edge To 
shareable pattern edgeFromTolnternal (Edge , From , To ) 
graphl . Node (From) ; 
grap hl . Node (To ) ; 

; ( Edge ,From,SourceRelation) ; 
;(Edg6 ,To , TargetRelation) ; 



= { 



find 
find 



srcAndRelForEdge 



trgAndRelForEdge 



// From is connected with an edge To 
sharea ble pattern edgeFr omTo ( From , To ) = { 



find 



edgeFromTolnternal ( Edge , From , To ) ; 



// From is connect ed with an edge To and both in Graph 
patter n edgeFromToInGraph ( From , To , Graph) = { 



find 



edgeFromTolnternal ( Edge , From , To ) ; 



graph 1 . Gr aph ( Graph ) 
graphl . Graph. edges(EdgesRelation , Graph , Edge ) ; 



// finds isolated nodes 
pattern isolatedNode ( Node ) 

graphl . N ode ( Node ) ; 

neg find 



neg find 



} 



SrcAndRelForEdge 



trgAndRelForEdge 



( Edge .Node ,SourceRelation) ; 
(Edge ,Node .TargetRelation) ; 



// is not a source 
// is not a target 



// three node in a circle 

pattern circleOf ThreeNode ( Node , Innerl , lnner2) 
grap hl. Node(No de) ; 
find 



= { 



find 
find 



edgeFromTo (Node , Innerl) : 



edgeFromTo ( Innerl , Inner 2 ) ; 



edgeFromTo ( lnner2 , Node ) ; 



// edge with either source or target missing 

patter n danglingEdge ( Ed ge ) = {// has source but no target 



find 



SrcA ndRelForEdge ( Edge .From , SourceRelation) 



neg find trglndRelForEdge ( Edge , To , Tar get Re 1 at ion ) ; 



} or { // has target hut no source 



find 



neg find 



} 



trgA ndRelForEdge ( Edge ,To .TargetRelation) : 



SrcAndRelForEdge ( Edge .From, SourceRelation); 



// finds the Source of Edge and the corresponding node in the evolved model 
patter n OldAndNewSourceO f Edge ( Edge .Source ,Node2) = { 
find 



SrcAndRelForEdge ( Edge , Source , SourceRelation) ; 
graph2 . Node (Node2) ; 

relation(Traceability .Source .Node2) ; 



// finds the Target of Edge and the corresponding node in the evolved model 
pattern DldAndNewTargetOf Edge ( Edge , Target . Node2 ) = { 
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find 



trgAndRelForEdge (Edge , Target .TargetRelation) ; 



graph2 . Node lNode2; ; 

r e lat ion ( Tr aceabil i ty .Target ,Node2) ; 



130 // finds traceahility relations between nodes 
pattern TraceabilityRelation ( Tr aceabili t y ) = { 
graphl . Node (Node) ; 
graph2 . Node ( Node2 ) ; 

re lat ion ( Tr aceabil ity , Node ,Node2) ; 



// finds From and To of an edge and the corresponding new nodes 
sharea ble patter n oldAndNewEdgeFromTo ( From , NewFr om , To , NewTo ) = { 



find 



edgeFromTo ( Fr om , To ) ; 



140 graphl . Node (From) ; 

graphs . Node (NewFrom) ; 

graphl . Node (To ) ; 

graphs . Node (NewTo) ; 

rel at ion(Trl, From, NewFrom); 

relation (Tr 2 , To , NewTo ) ; 



// finds Nl node 
pattern NlNode(Node) = { 
150 graphl . Node (Node) ; 

EString(Name) ; 

graphl. Node. name(NameRel , Node, Name); 
Che ck ( value ( Name ) == "nl"); 



160 



// Edge is connect ed to Node 
patter n connectedEdge ( N ode , Edge ) = { 

find 
} or { 

find 

} 



srcAndRelForEdge ( Edge ,Node , SourceRelation) 



trgAndRelForEdge (Edge , Node .TargetRelation) : 



// From and To (in Graph) are 2-hop transitively connected but not explicitly 
patt er n transitiveEdgeMis sing2hop ( From , To , Graph ) = { 



find 
find 



edgeFromTo InGraph ( From , Inner , Graph) ; 



edge FromTo InGraph ( Inne r , To , Graph ) 



neg find edgeFromTolnGraph ( Fr om , To , Graph ) : 



170 // From and To (in Graph) are transitively connected but not explicitly 
aiocalsearch 

patter n transit iveEdgeHiss ing (From , To , Graph ) = { 



find 



neg find 



transitiveConnected ( From , To , Graph ) 



edgeFromTolnGraph ( From , To , Graph ) : 



180 



edgeFromTolnGraph ( From , Inner , Graph) ; 



// From and To (in Graph) are transitively connected 
Olocalsearch 

patt er n transitiveConnect ed (From , To , Graph ) = { 
find 
find 
} or { 
find 
find 

} 



edgeFromTo InGraph ( Inner , To , Graph ) 



edgeFromTolnGraph ( From , Inner , Graph) ; 



transitiveConnected ( Inner , To , Graph ) ; 



Listing 3: Common graph patterns 
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B.3 Count Matches with certain Properties 

import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

Qincremental 

machine countMat che s ASM { 



10 



20 



rule mainO = seq{ 

println("2.2 Count matches transformation started' 
prin tln ( " Count ing number of nodes with ASM Rule"); 
call 



) ; 



countNodes ( ) ; 

prin t In (." Count ing lo oping edges with ASM Rule"); 



call 



count LoopingEdges 



() ; 



prin t In (." Count ing iso lated nodes with ASM Rule"): 



call 



count IsolatedNodes 



() ; 



prin t In (." Count ing cir cles of three with ASM Rule") 



call 



countCirclesOf Three ( ) 



prin t In (." Count ing dan gling edges with ASM Rule"): 



call 



countDangl ingEdge s 



() ; 



println ("2.2 Count matches transformation finished"); 



// ASM Rule variant of simple node counting 
rule countNodes () = let Count = in seq { 

// "for all" is execut ed on each match of th e "patterns after 



forall Node with find 



graphPatterns . SimpleNode ( Node ) do seq{ 

vari able 



"find • 



update Count = Count + 1 ; 77 update "overwrites 



30 



// c reates EMF m odel for result 

call createResult ( Count , "Number of nodes"); 



40 



// ASM Rule variant of looping edge counting 
rule countLoopingEdges ( ) = let Count = in seq { 



forall Edge with find graphPatterns . loopingEdge ( Edge ) do seq-[ 
update Count = Count + 1 ; 

} 

call 



createResult 



(Count, "Number of looping edges"); 



// ASM Rule variant of isolated node counting 
rule countlsolatedNodes ( ) = let Count = in seq { 



50 



forall Node with find 

update Count = Count + 1 ; 

} 

call 



graphPatterns . isolatedNode ( Node ) do seq{ 



createResult (Count 



Number of isolated nodes"): 



// ASM Rule variant of circle of three counting 
rule countCirclesOf Three ( ) = let Count = in seq { 



60 



forall Node , Innerl , Inner2 with 
find 



graphPatterns . circleOf ThreeNode ( Node , Inner 1 , Inner 2 ) do seq{ 
updaTe Count = Count + 1 ; 



} 

call 



createResult (Count 



'Number of nodes in circles of three"); 



// ASM Rule variant of dangling edge counting 
rule countDanglingEdges ( ) = let Count = in seq { 
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70 



forall Edge with find graphPatterns . danglingEdge ( Edge ) do seq{ 
update Count = Count + 1 ; 

} 

call 



createResult 



(Count, "Number of dangling edges") 



80 } 



} 

// ASM Rule for result storing 

rule createResult ( in ResultValue , in Name) = let Result = undef , 
Value = undef , ResR = undef in seq{ 
new ( result . Int Result ( Result ) in nemf . resources ) ; 
new ( EInt ( Value ) in Result); 

new(result . Int Result . result (ResR .Result .Value)) ; 

rename(Value .Name) ; 

setValue (Value , ResultValue); 

} 

Listing 4: Count matches transformation, ASM variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

@incremental 

machine countMat chesMC { 



10 



20 



rule mainO = seq{ 

println("2.2 Count matches transformation started' 
prin tln(" Countin g number of nodes with MCRule"); 
call countNodesMC () ; 

prin t In (." Count ing loop ing edges with MC Rule"); 



call 



countLoopingEdgesMC ( ) 



prin t in (." Count ing iso 



lated nodes with MC Rule"); 



call 



countlsolatedNodesMC ( ) 



prin t In (." Count ing circl es of three with MC Rule"); 



call 



countCirclesOf ThreeMC ( ) 



prin t In (." Count ing dang ling edges with MC Rule"); 



call 



countDanglingEdgesMC ( ) 



) ; 



print In t " 2 . 2 Count mat che s transformation finished"); 



patter n countNodesPattern(N) = { 
find 



graphPatterns . SimpleNode ( Node ) # N; // counts the number of nodes 



// MC Rule variant of simple node counting 
rule countNodesMC ( ) = seq { 
30 try choose Count with find 

let Result = undef , ResR = undef 
call 



} 



createResult2 (Count 



countNodesPattern ( Count ) do 

undef in seq{ 



NodeCount 
"Number of nodes"); 



} 



patt er n countLoopingEdgesPattern (N) = { 



find 



} 



graphPatterns . loopingEdge ( Edge ) # N 



40 // MC Rule variant of looping edge counting 
rule CountLoopingEdgesMC ( ) = seq { 



try choose Count with find countLoopingEdgesPattern ( Count ) do 
let Result = undef 



ResR = undef . LoopCount = undef in seq-C 
call createResult2 ( Count . "Number of looping edges"); 
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50 



patter n count IsolatedModesPattern ( N ) 
find 



{ 



graphPatterns . isolatedNode ( Node ) # N 



60 



// MC Rule variant of isolated node counting 
rule countlsolatedNodesMC ( ) = seq { 



try choose Count with find 
let Result = undef , ResR = undef 
call 



} 



countlsolatedNodesPattern (Count ) do 

IsolatedCount = undef in seq{ 



createResult2 ( Count , "Number of isolated nodes"): 



patt er n countCirclesOf ThreePattern (N ) = { 
find 



graphPatterns . circleOf ThreeNode ( Node , Inner 1 , Inner 2 ) # N 



// MC Rule variant of circles of three counting 
rule countCirclesOf ThreeMC () = seq { 



try choose Count with find 
70 let Result = undef , ResR = undef 

call 



} 



createResult2 (Count 



countCirclesOf ThreePattern (Count ) do 

Cir cleCount = undef in seq-C 
"Number of nodes in circles of three"): 



patt er n countPanglingEdgesPattern ( N ) = { 



find 



} 



graphPatterns . danglingEdge ( Node ) # N 



80 



// MC Rule variant of dangling edge counting 
rule countDanglingEdgesMC ( ) = seq { 



try choose Count with find countDanglingEdgesPattern 
let Result = undef 
call 



} 



ResR = undef 
createResult2 ( Count , "Number of dangling edges") 



(Count) do 
Dang ling Count = undef in seq{ 



} 

// ASM Rule for result storing 

rule createResult2 ( in ResultValue , in Name) = let Result = undef, 
90 Value = undef , ResR = undef in seq{ 

new ( result . Int Result ( Result ) in nemf . resources ) ; 
new ( EInt ( Value ) in Result); 

new(result . Int Result . result (ResR .Result , Value)) ; 

rename(Value .Name) ; 

setValue (Value , ResultValue); 

} 



Listing 5: Count matches transformation, match count variant 



B.4 Reverse Edges 



import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

©incremental 

machine reverseEdgesASM{ 



rule mainO = seq-[ 
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pr in tln ( " 2 . 3 Rev erse edges transformation started"); 
10 call reverseEdges ( ) ; 

print In (."2.3 Reverse edges transformation finished"); 



20 



30 



40 



// ASM Rule variant for reverse edges 
rule reverseEdges ( ) = seq{ 



Eorall Edge with find graphPatterns .Edge ( Edge ) do let SR = undef , TR = undef 

" edge . " ) ; 



seq{ 



// finds src relation if exists 
printlnC > Reversing " + name (Edge) 
try c hoose Source, Sour ceRelat i o n with 
find graphPatterns . srcAndRelForEdge ( Edge , Sour ce , Sour ceRelat ion ) do seq-[ 
update 5r = SourceRelation; 

} 

// finds trg relation if exists 
try c hoose Target , TargetRelatio n with 



find 



graphPatterns . trgAndRelForEdge ( Edge .Target .TargetRelation) do seq{ 



update TR = TargetRelation; 
} 

if(SR != undef) seq{ 

// replace instanced f relation 

// instanceOf is a relation type, which can he dynamically deleted 

delete (instanceOf (SR, nemf .packages . graph 1 .Edge. src)); 

new ( ins tanceOf ( SR , nemf . packages . graphl . Edge . trg )) ; // and created 

} 

if(TR != undef) seq{ 

// replace instanceOf relation 

delete (instanceOf (TR,nemf .packages . graphl .Edge. trg)); 
new(inst an ceOf(TR, nemf. packages. graphl. Edge. src)); 

> 



Listing 6: Reverse edges transformation, ASM variant 



import datatypes; 
import nemf . package s ; 
import nemf . ecore . datatypes ; 



10 



©incremental 

machine rever seEdgesGT{ 

rule mainO = seq{ 

println("2.3 Reverse e dges transfor mation started"); 
forall Edge with apply reverseEdgesGT ( Edge ) do 

println(" > Reversing^ " + name ( Edge ) + " edge."); 
println("2.3 Reverse edges transformation finished"); 

} 



20 



// GT Rule variant for reverse edges 

// note: add "shareable" keyword before "pattern" to 
// actually reverse looping edges as well 
gtrule reverseEdgesGT ( out Edge) = { 

precon dition pattern edgeWithRelati ons ( Edge , From, To, Sour ceRel ,TargetRel) = { 



find 
find 



graphPatterns . srcAndRelForEdge ( Edge ,From , SourceRel) 



graphPatterns . trgAndRelForEdge ( Edge , To , TargetRel ) ; 



} 

postco ndition pat tern rever sedEdges ( Edge , From, To, SourceRel , TargetRel) = { 



find 
find 



graphPatterns . srcAndRelForEdge ( Edge ,To,SourceRel) 



graphPatterns . trgAndRelForEdge ( Edge , From, TargetRel) 
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Listing 7: Reverse edges transformation, GT variant 



import datatypes; 
import nemf . package s ; 
import nemf . ecore . datatypes ; 

aincremental 

machine r e ver seEdge sRel { 

rule mainO = seq-C 

prin tln("2.3 Rev erse edges transformation started"); 
10 call 



reverseEdges 



() ; 

print In ("2.3 Reverse edges transformation finished"); 
} 

// ASM Rule variant for reverse edges 
rule re ver seEdge s ( ) = seq{ 



forall Edge with find graphPatterns .Edge ( Edge ) do 

TR = undef in seq{ 



let S = undef , SR = undef , T = undef 
// finds src relation if exists 
20 printlnC > Reversing " + name(Edge) + " edge.") 

try c hoose Source , SourceRelation with 



find traphPatterns . srcAndRelForEdge ( Edge , Sour ce , Sour ceRelat ion ) do seq{ 
updat e S = Source ; 
update SR = SourceRelation; 

} 

// finds trg relation if exists 
try c hoose Target , TargetRelation with 
find graphPatterns . trgAndRelForEdge ( Edge , Target , Tar get Relat i on ) do seq{ 



update T = Target ; 
30 update TR = Tar getRelat i on ; 

} 

if(T != undef) seq{ 

printlnC" > Reversing target to source: " + name(T)); 
if(SR != undef) setTo(SR,T); // change target of relation 
else seq{ 

delete (TR) ; 

new (graphl . Edge . src (SR , Edge , T) ) ; 

} 

} 

40 if(S != undef) seq{ 

printlnC" > Reversing source to target: " + name(S)); 
if(TR != undef) setTo(TR,S); 
else seq{ 

delete (SR) ; 

new C graphl . Edge . trg (TR , Edge , S) ) ; 

} 

} 



50 } 



Listing 8: Reverse edges transformation, relation manipulation variant 
B.5 Simple Migration 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 



©incremental 
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machine s impleMigr at i on { 
rule mainO = seq-[ 

10 prin tln("2.4 Sim ple Migration (with copy) transformation started"); 



call 



migrateGraph ( ) ; 



println ("2.4 Simple Migration (with copy) transformation finished"): 



20 



30 



// ASM Rule variant of simple migration transformation 
rule migrateGraph ( ) = seq{ 



forall Graph with find 
let Graph2 = undef , GC'SRel 



graphPatterns . Graph ( Graph ) do 



undef in seq{ 

new ( graph2 . Graph ( Graph2 ) in nemf . resources ) ; // create graph 

forall Node , NodesRelation , NameRelation with 
// / or each node, create a ne w 

find [graphPatterns .NodesRelat ions ( Graph ,Hode .NodesRelation , NameRelation) do 
let Node2 = undef , Text = undef , TextRel = undef , Traceability = undef in seq{ 
new ( graph2 . Node ( Node2 ) in Graph2); 
new (graph2 . Graph . gcs (GCSRel , Graph2 , Node2 ) ) ; 
new(EString(Text) in Node2_)_^ 
try choose Name with find 



graphPatterns .nameOf Node ( NameRe lat ion , Name ) do seq{ 
setValue (Text , value ( Name ) ) ; 

} 

new ( gr aph2 . Graph Component .text(TextRel ,Node2,Text)); 
// store the traceability between old and new node 
new(relation(Traceability ,Node ,Node2)) ; 



} 



40 



50 



// for each edge, create a new 
foral l Edge , EdgesRe 1 at ion wit h 



graphPatterns . EdgesRelation| ( Graph , Edge ,EdgesRelation) do 



find 

let Edge2 = undef , Text = undef .TextRel = undef , EvolvedRel = undef in seq{ 
new ( graph2 . Edge ( Edge2 ) in Graph2); 
new (graph2 . Graph . gcs (GCSRel , Graph2 , Edge2 ) ) ; 
new(EString(Text) in Edge2); 

new ( gr aph2 . Graph Component .text(TextR6l, Edge , Text ) ) ; 

// each source relation is created to the corresponding node 

foral l Source, Node2 with 

find graphPatterns . OldAndNewSourceOf Edge ( Edge , Sour ce , Node2 ) do seq{ 
new (graph 2 .Edge.src(EvolvedRel ,Edge2 , Node2 ) ) ; 

} 

foral l Target, Node2 with 



find 



graphPatterns .OldAndNewTargetOf Edge (Edge , Target , Node2 ) do seq{ 



// each tagret rnTaTTTon Ts creat ed to the corresponding node 
new (graph2 . Edge . trg ( EvolvedRel , Edge2 , Node2 ) ) : 



60 



// delete traceability models 
foral l Traceability with 



find 



graphPatterns . TraceabilityRelation ( Trac eabil it y ) do seq{ 



delete (Traceability) ; 



Listing 9: Simple Migration transformation, copy variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 
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10 



Sincremental 

machine s impl eMigr at i onlnplac e { 
rule mainO = seq{ 

prin tln("2.4 Simple M igration (in-place) transformation started"): 



call 



migrateGraphlnplace 



() ; 



print In (."2.4 Simple Migration (in-place) transformation finished"); 



20 



30 



40 



// ASM Rule variant of simple migration in-place transformation 

rule migrateGraphlnplace ( ) = seq{ 

// at this point J each Graph is transfo rmed 

forall Graph with find graphPatterns . Graph ( Graph ) do seq{ 



// each node is transformed using instanceOf changing 
forall Node , NodesRelat i on , Mam eRelation with 
find graphPatterns . NodesRelat ions ( Graph ,Node , NodesRelat ion , 
delete (instanceOf (Node ,nemf . packages . graphl . Node) ) ; 



NameRelat i on ) do seq{ 



new (instanceOf (Node , nemf .packages . graph2 . Node ) ) ; 

delete (instanceOf (NodesRelat ion , nemf .packages . graphl .Graph. nodes)); 
new(inst an ceOf (NodesRelat ion, nemf. packages.graph2.Graph.gcs)); 
delete (instanceOf (NameRelat ion , nemf .packages. graphl .Node. name)); 
new(instanceOf (NameRelation ,nemf . packages . graph2 . Gr aphComponent . t ext ) ) : 

} 

// each edge is transformed using instanceOf changing 
foral l Edge , EdgesRelation wit h 



find graphPatterns . EdgesRelation ( Graph , Edge , Edge sRelat i on ) do 
let Text = undef , TextRel = undef in seq{ 

delete (instanceOf (Edge ,nemf . packages . graphl . Edge) ) ; 

new (instanceOf (Edge , nemf .packages. graph2 . Edge ) ) ; 

delete (instanceOf (EdgesRelation ,nemf . packages . graphl .Graph. edges)); 
new ( instanceOf (EdgesRelation , nemf . packages . graph2 . Graph . gcs) ) ; 
new(EString(Text) in Edge); 

new(graph2 . Gr aphComponent . text (TextRel , Edge , Text ) ) ; 

} 

// the graph is transformed 

delete(instanceOf ( Graph ,nemf . packages . graphl . Graph ) ) ; 
new(instanceOf ( Graph ,nemf . packages . graph2 . Graph)) ; 



Listing 10: Simple Migration transformation, in-place variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes : 



10 



aincremental 

machine s impleMigr at i onTopology { 
rule mainO = seq-[ 

prin tln("2.4 Simp le Migration (topoogy change with copy) transformation started"); 



call 



topologyChange ( ) 



print In ("2.4 Simple Migration (topoogy change with copy) transformation finished"); 



// ASM Rule variant of topology - changing migration 
rule topologyChange ( ) = seq{ 



forall Graph with find graphPatterns . Graph ( Graph ) do 



let NewGraph = undef , Rel = undef in seq{ 
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20 



30 



new ( graphs . Graph ( NewGraph ) in nemf . resources ) ; 

forall Hode , NodesRelat i on , Mam eRelat i on with 
find [graphPatterns . ModesRelat ion's ( Graph ,Node .NodesRelat ion , NameRelat i on ) do 
let NewNode = undef , Text = undef , Traceability = undef in seq{ 

new ( graphs . Node ( NewNode ) in NewGraph); 

n6w(graphS.Graph.nodes(Rel, NewGraph , NewNode)); 

new (EString (Text ) in NewN ode ) ; 



try choose Name with find graphPatterns .nameOf Node ( NameRelat ion , Name ) do seq-[ 
setValue(Text ,value( Name ) ) ; 

} 

new (graphs . Node . text (Rel , NewNode , Text ) ) ; 
new(rel at ion(Trace ability ,Node .NewNode)) ; 



40 



f o r a 1 1 From , To . NewFrom . NewTo with 
find 



graphPatterns. oldAndNewEdgeFromTo (From .NewFrom .To .NewTo) do 
undef in seqi 



let LinksToRel 
new (graphs . Node . links To (LinksToRel . NewFrom . NewTo ) ) ; 



} 

f r a 1 1 Traceability with 



find 



graphPatterns . TraceabilityRelation 



delete (Trace ability) : 



(Traceability) do seq{ 



Listing 11: Simple Migration Topology changing transformation, copy variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

^incremental 

machine simpleMigrationTopologyInplace{ 
rule mainO = seq-C 



10 



prin tln("2.4 Simple Mig ration (topology change in-place) transformation started"); 



call 



topologyChangelnplace 



() : 



print In ("2.4 Simple Migr at i on (topology change in-place) transformation finished"): 



// ASM Rule variant of topology - changing in-place migration 
rule topologyChangelnplace ( ) = seq{ 



forall Graph with find 



graphPatterns . Graph ( Graph ) do seq{ 



20 



foral l Node . NodesRelat i on . Nam eRelation with 
find 



seq{ 



graphPatterns . NodesRelat ions ( Graph .Node .NodesRelation .NameRelation) do 



deletednstanceOf (Node .nemf .packages . graphl . Node)) ; 
newdnstanceOf (Node .nemf . packages . graphS . Node ) ) ; 

delete (instanceOf (NodesRelation . nemf .packages . graphl .Graph. nodes)); 
n6w(instanceOf (NodesRelat ion .nemf .packages . graphS .Graph. nodes)) ; 
delete (instanceOf (NameRelation . nemf .packages . graphl .Node. name)); 
new(inst an ceOf (NameRelat ion. nemf. packages. graphS. Node. text)); 



30 



forall To with find 



graphPatterns . edgeFromTo ( Node .To) do 



let LinksToRel = undef in seqi 
new (graphs .Node.linksTo(LinksToRel. Node . To ) ) : 



forall Edge . EdgesRe 1 at ion with 
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find graphPatterns . EdgesRelation ( Graph , Edge , Edge sRelat i on ) do seq{ 
delete (Edge ) ; 

} 

40 delete(instanceOf(Graph,nemf.packages.graphl. Graph ) ) ; 

newCinstanceOf ( Graph , nemf. packages. gr aphS .Graph )) ; 

} 

} 

} 

Listing 12: Simple Migration Topology changing transformation, in-place variant 
B.6 Delete Node with Specific Name and its Incident Edges 

import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

©incremental 

machine deleteNodeASM{ 

rule mainO = seq{ 

prin tln("2.5 D elete nodes transformation started") 
10 call 



deleteNode 



() ; 

print In (."2.3 Delete nodes transformation finished"); 
} 

rule deleteNode () = seq{ 

try choose Nl with find graphPatterns . NlNode ( Nl) do seq{ 
delete (Nl ) ; 

} 

} 



Listing 13: Delete node transformation, ASM variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

aincremental 

machine deleteNodeGT{ 



10 



rule mainO = seq-[ 

println("2.5 Delete n l node trans formation (GT) started"): 
try choose with apply 



deleteNodeGTO do skip; 



println("2.3 Delete nl node transformation finished") 



20 



gtrule deleteNodeGTO = { 



precondition find 



graphPatterns .NlNode (Nl ) 



postcondit ion pattern noNl(Hl ) = { 



neg find 



} 



graphPatterns. NlNode CNl ) 



Listing 14: Delete node transformation, GT variant 



import datatypes; 
import nemf . package s ; 
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import nemf . ecore . datatypes ; 
Qincremental 

machine de 1 e t eNode Inc ident ASM { 



10 



rule mainO = seq-[ 

println ( " 2 . 5 Delete nodes transformation started") 
prin t In (" Del et ing incident edges as well"); 



call 



deleteNodeAndlncidentEdges 



() 



println (."2.3 Delete nodes transformation finished"); 



20 



rule deleteNodeAndlncidentEdge s ( ) = seq{ 



try choose Nl with find 
forall Edge with find 
delete (Edge ) ; 

} 

delete (Nl ) ; 

} 



graphPatterns . NlNode (Nl) d o s e q { 



graphPatterns . connectedEdge (Nl , Edge ) do seq{ 



Listing 15: Delete node and incident edges transformation, ASM variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

Sincremental 

machine de let eNode Inc ident GT{ 

rule mainO = seq{ 

println("2.5 Delete nl node transformation (GT) started") 
10 println (" Deleting inc ident edges as well"); 

try choose with apply deleteNodeAndlncidentEdgesGT ( ) do skip; 
println("2.3 Delete nl node transformation finished"); 

} 



gtrule deleteNodeGT(i n Nl) = { 



precondition find graphPatterns . NlNode ( Nl ) 



20 



postcondit ion pattern noNl(N l) = { 
neg find graphPatterns .NlNode ( Nl ) ; 

} 



gtrule deleteNodeAndln cidentEdgesGT () = { 



precondition find 



graphPatterns .NlNode (Nl ) 



30 



act ion{ 

forall Edge with apply deletelncide ntEdgesOf Node ( Nl , Edge ) do skip; 
try choose with apply 



deleteNodeGT nTTl do skip ; 



} 



gtrule deletelncidentE dgesOf Node ( in Node, out E dge) = { 
precondition find graphPatterns . connectedEdge ( Node , Edge ) 



postcondition pattern noConnectingEdge (Node , Edge ) = { 

graphl . N ode ( Node ) ; 

neg find graphPatterns . connectedEdge ( Node , Edge ) ; 



} 
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40 } 

Listing 16: Delete node and incident edges transformation, GT variant 
B.7 Insert Transitive Edges 

import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

©incremental 

machine trans it iveEdge s ASM { 

rule mainO = seq-[ 

prin tln("2.6 Transitive ed ges (R u R"2) transformation (ASM) started"): 
10 call 



insertTransitiveEdgesOnce ( ) ; 
print In (."2.6 Trans it ive edges transformation finished"); 

} 

// ASM Rule variant for ins er ting edges 
// b etween each pair of transitively connected nodes 
rule insertTransitiveEdgesOnce ( ) = seq{ 
forall From, To, Graph with 



find 



graphPatterns . transitiveEdgeMissing2hop ( From , To , Graph) do 



let TransitiveEdge = undef , Rel = undef in seq{ 
20 new ( graphl . Edge ( Trans it iveEdge ) in Graph); 

neuCgraphl . Graph.edges(Rel , Graph ,TransitiveEdge)) ; 
new( graphl . Edge . src (Rel .TransitiveEdge ,From)) ; 
new( graphl. Edge. trg( Re l,Tr an sitiveEdge ,To)); 

} 



Listing 17: Insert transitive edges transformation, ASM variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

©incremental 

machine trans it iveEdge sGT { 



10 



rule mainO = seq-[ 

println("2.6 Transitive ed ges (R u R~2) transforma tion ( GT ) started"); 



insertTransitiveEdgesDnceGT ( From , To) do skip; 



forall From, To with apply 
println("2.6 Transitive edges transformation f ini shed " ) : 



// GT Rule for inserting transitive edges h etween From and To 
gtrule InsertTransitiv eEdgesOnceGT ( out From, out To) = { 



precondition find 
postcondition find 



graphPatterns . transitiveEdgeMissing2hop ( From , To , Graph) 



graphPatterns . edgeFromToInOraph ( From , To , Graph) 



20 } 



Listing 18: Insert transitive edges transformation, GT variant 



import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 



©incremental 
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machine transitiveEdgesIterativeASM{ 

rule mainO = seq{ 

println("2.6 Transitive edges (R u R~2) transformation (ASM) started"); 
10 prin tln (" Insert edges it er at i ve ly " ) ; 



call 



insertTransitiveEdgesIterative ( ) ; 
println ("2.6 Trans it i ve edges t r ansf ormation finished"); 

} 

// ASM Rule variant for inserting edges between each transitively connected nodes 
rule insertTransitiveEdgesIterative ( ) = seq{ 
iter at e choose From, To, Graph with 



find 



graphPatterns . transitiveEdgeMissing2hop ( Fr om ,To , Graph) do 



let TransitiveEdge = undef , Rel = undef in seq{ 
20 new ( graphl . Edge ( Trans it iveEdge ) in Graph); 

neu(graphl.Graph.edges(Rel, Graph ,TransitiveEdge)) ; 
neuCgraphl . Edge . src (Rel ,TransitiveEdge , From)) ; 
new(graphl . Edge . trg(Rel ,TransitiveEdge ,To)) ; 

} 



Listing 19: Insert all transitive edges iteratively transformation, ASM variant 

import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

©incremental 

machine trans it iveEdgesIterativeGT{ 

rule mainO = seq-[ 

println("2.6 Transitive edges (R u R"2) transformation ( GT ) started"); 
10 println (" Insert edges iteratively") 

iterate choose From , To with apply 



insert TransitiveEdgesOnceGT ( From , To) do skip; 
println("2.6 Transitive edges tr ansf ormat ion finished") ; 



} 



// GT Rule for inserting transitive edges between From and To 
gtrule insertTransitiv eEdgesOnceGT ( out From, out To) = { 



precondition find graphPatterns . transit iveEdgeMissing2hop (From , To , Graph ) 



postcondition find graphPatterns . edgeFromToInGraph ( From , To , Graph ) 

20 } 
} 

Listing 20: Insert all transitive edges iteratively transformation, GT variant 

import datatypes ; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

machine trans it iveEdges All ASM { 

rule mainO = seq-C 

prin tln("2.6 Transitive ed ges (R u R"2 ... u R"n) transformation (ASM) started"); 
call insertTransitiveEdgesAll ( ) ; 
10 println ("2.6 Trans it ive edges transformation finished"); 

} 

// A SM Rule variant for ins erting edges 
// between each pair of transitively connected nodes 
rule insertTransitiveEdgesAll ( ) = seq{ 
f orall From , To , Graph with 



324 



Saying Hello World with VIATRA2 - A Solution to the TTC 2011 Instructive Case 



find graphPatterns . transitiveEdgeMissing ( From , To , Graph ) do 



let TransitiveEdge = undef , Rel = undef in seq{ 
new ( graphl . Edge ( Trans it iveEdge ) in Graph); 
20 new(graphl.Graph.edges(Rel, Graph .TransitiveEdge)) ; 

neuCgraphl . Edge . src (Rel .TransitiveEdge .From)) ; 
neu(graphl.Edge.trg(Rel,TransitiveEdge .To)); 

} 



Listing 21: Insert all transitive edges transformation, ASM variant 



import datatypes; 

import nemf . package s ; 

import nemf . ecore . datatypes ; 

machine trans it iveEdge sAl 1GT{ 
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rule mainO = seq-[ 

println("2.6 Transitive ed ges (R u R"2 
forall From. To with apply 
pr intln ( " 2 

} 



u R"n) transformation (GT) started"): 
insert TransitiveEdgesAllGT ( From . To) do skip; 
Transitive edges transformation f inished " ) ; 



// GT Rule for inserting transitive edges between From and To 
gtrule insertTransitiv eEdgesAllGT ( out From, out To) = { 



precondition find 



graphPatterns . transitiveEdgeMissing (From , To . Graph ) 



postcondition find graphPatterns . edgeFromToInGraph (From .To . Graph ) 



Listing 22: Insert all transitive edges transformation, GT variant 



